home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Info-Mac 4
/
Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso
/
Development
/
General
/
MM3Tp.sea Folder
/
Made by Marksman
/
Sources
/
u
/
menuMM_Demo.p
< prev
next >
Wrap
Text File
|
1994-01-16
|
7KB
|
349 lines
unit UmenuMM_Demo;
{ Copyright © 1994 George R. Cossey }
{ menuMM_Demo Handle menus
File name: menuMM_Demo
Function: This contains the routines to handle menus.
History: 1/16/94 Original by George Cossey
}
interface
uses
Printing, Folders, Sound,mmCommonMM_Demo,CommonMM_Demo;
{ ======================================================= }
{ ======================================================= }
{ Extra to Initialize the menubar }
procedure AddExtraMenus;
procedure Do_AppleMenu(Doing_Pre:Boolean;theItem:integer;var SkipProcessing:Boolean);
procedure Do_FileMenu(Doing_Pre:Boolean;theItem:integer;var SkipProcessing:Boolean);
procedure Do_EditMenu(Doing_Pre:Boolean;theItem:integer;var SkipProcessing:Boolean);
procedure Do_WindowsMenu(Doing_Pre:Boolean;theItem:integer;var SkipProcessing:Boolean);
{ Handle other menu lists }
procedure Handle_Other_Menus(theMenu,theItem:integer);
{ ======================================================= }
{ ======================================================= }
implementation
{ ======================================================= }
{ ======================================================= }
{ Routine: AddExtraMenus }
{ Purpose: Add in any extra menus }
procedure AddExtraMenus;
begin
end;
{ ======================================================= }
{ Routine: Do_AppleMenu }
{ Purpose: Handle any menu items for the menu. }
{ Get the main handler to ignore this menu item by changing SkipProcessing to be TRUE. }
procedure Do_AppleMenu(Doing_Pre:Boolean;theItem:integer;var SkipProcessing:Boolean);
begin
SkipProcessing := FALSE; { Set to not skip the processing of this menu item }
case (theItem) of { Handle all commands in this menu list }
-1:begin end;
MItem_About_Demo: { For item About Demo… }
begin
if (Doing_Pre) then
begin
end
else
begin
end;
end;
otherwise { allow other buttons, trap for debug }
begin
end; { end of otherwise }
end; { end of switch }
end;
{ ======================================================= }
{ Routine: Do_FileMenu }
{ Purpose: Handle any menu items for the File menu. }
{ Get the main handler to ignore this menu item by changing SkipProcessing to be TRUE. }
procedure Do_FileMenu(Doing_Pre:Boolean;theItem:integer;var SkipProcessing:Boolean);
begin
SkipProcessing := FALSE; { Set to not skip the processing of this menu item }
case (theItem) of { Handle all commands in this menu list }
-1:begin end;
MItem_New: { For item New }
begin
if (Doing_Pre) then
begin
end
else
begin
end;
end;
MItem_Open: { For item Open… }
begin
if (Doing_Pre) then
begin
end
else
begin
end;
end;
MItem_Close: { For item Close }
begin
if (Doing_Pre) then
begin
end
else
begin
end;
end;
MItem_Save: { For item Save }
begin
if (Doing_Pre) then
begin
end
else
begin
end;
end;
MItem_Save_As: { For item Save As… }
begin
if (Doing_Pre) then
begin
end
else
begin
end;
end;
MItem_Revert: { For item Revert }
begin
if (Doing_Pre) then
begin
end
else
begin
end;
end;
MItem_Page_Setup: { For item Page Setup… }
begin
if (Doing_Pre) then
begin
end
else
begin
end;
end;
MItem_Print: { For item Print… }
begin
if (Doing_Pre) then
begin
end
else
begin
end;
end;
MItem_Quit: { For item Quit }
begin
if (Doing_Pre) then
begin
end
else
begin
end;
end;
otherwise { allow other buttons, trap for debug }
begin
end; { end of otherwise }
end; { end of switch }
end;
{ ======================================================= }
{ Routine: Do_EditMenu }
{ Purpose: Handle any menu items for the Edit menu. }
{ Get the main handler to ignore this menu item by changing SkipProcessing to be TRUE. }
procedure Do_EditMenu(Doing_Pre:Boolean;theItem:integer;var SkipProcessing:Boolean);
begin
SkipProcessing := FALSE; { Set to not skip the processing of this menu item }
case (theItem) of { Handle all commands in this menu list }
-1:begin end;
MItem_Undo: { For item Undo }
begin
if (Doing_Pre) then
begin
end
else
begin
end;
end;
MItem_Cut: { For item Cut }
begin
if (Doing_Pre) then
begin
end
else
begin
end;
end;
MItem_Copy: { For item Copy }
begin
if (Doing_Pre) then
begin
end
else
begin
end;
end;
MItem_Paste: { For item Paste }
begin
if (Doing_Pre) then
begin
end
else
begin
end;
end;
MItem_Clear: { For item Clear }
begin
if (Doing_Pre) then
begin
end
else
begin
end;
end;
MItem_Select_All: { For item Select All }
begin
if (Doing_Pre) then
begin
end
else
begin
end;
end;
otherwise { allow other buttons, trap for debug }
begin
end; { end of otherwise }
end; { end of switch }
end;
{ ======================================================= }
{ Routine: Do_WindowsMenu }
{ Purpose: Handle any menu items for the Windows menu. }
{ Get the main handler to ignore this menu item by changing SkipProcessing to be TRUE. }
procedure Do_WindowsMenu(Doing_Pre:Boolean;theItem:integer;var SkipProcessing:Boolean);
begin
SkipProcessing := FALSE; { Set to not skip the processing of this menu item }
case (theItem) of { Handle all commands in this menu list }
-1:begin end;
MItem_Alert: { For item Alert… }
begin
if (Doing_Pre) then
begin
end
else
begin
end;
end;
MItem_Modal_Dialog: { For item Modal Dialog… }
begin
if (Doing_Pre) then
begin
end
else
begin
end;
end;
MItem_Movable_Modal_D: { For item Movable Modal Dialog… }
begin
if (Doing_Pre) then
begin
end
else
begin
end;
end;
MItem_Modeless_Dialog: { For item Modeless Dialog… }
begin
if (Doing_Pre) then
begin
end
else
begin
end;
end;
MItem_Window: { For item Window… }
begin
if (Doing_Pre) then
begin
end
else
begin
end;
end;
MItem_Floating_window: { For item Floating window… }
begin
if (Doing_Pre) then
begin
end
else
begin
end;
end;
otherwise { allow other buttons, trap for debug }
begin
end; { end of otherwise }
end; { end of switch }
end;
{ ======================================================= }
{ ======================================================= }
{ Routine: Handle_Other_Menus }
{ Purpose: Handle special menus }
procedure Handle_Other_Menus(theMenu,theItem:integer);
begin
end;
{ ======================================================= }
{ ======================================================= }
end.
